home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 37 / CD-ROM 37 / CD-ROM 37.iso / corel / Draw / Scripts / Presets / rings.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.8 KB  |  45 lines
  1. REM Blue and white ring fill, extruded.
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  0
  9.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  5
  10.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  9
  11.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  10
  12.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  15
  13.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  19
  14.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  20
  15.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  25
  16.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  29
  17.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  30
  18.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  35
  19.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  39
  20.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  40
  21.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  45
  22.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  49
  23.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  50
  24.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  55
  25.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  59
  26.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  60
  27.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  65
  28.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  69
  29.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  70
  30.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  75
  31.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  79
  32.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  80
  33.     .StoreColor 2, 100, 100, 0, 0, 0, 0, 100,  85
  34.     .StoreColor 2, 40, 40, 0, 60, 0, 0, 100,  89
  35.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  90
  36.     .StoreColor 2, 0, 0, 0, 0, 0, 0, 100,  95
  37.     .StoreColor 2, 0, 0, 0, 40, 0, 0, 100,  100
  38.     .ApplyFountainFill 1, 0, 0, 900, 256, 0, 3, 50
  39.     .RecorderSelectObjectByIndex TRUE, 1
  40.     .ApplyExtrude 4, 0, 0, 20, -18795, -20065, TRUE, 0, 0, 0, 0, 0, 0, 0, 0
  41.     .ResumePainting 
  42.     .EndOfRecording 
  43. END WITHOBJECT
  44.  
  45.